home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / id009.dxr / 00029_40.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  1.0 KB  |  53 lines
  1. on exitFrame
  2.   global check, flag
  3.   repeat with n = 4 to 10
  4.     handcursor(n)
  5.   end repeat
  6.   if check = 1 then
  7.     repeat with n = 3 down to 1
  8.       startTimer()
  9.       repeat while the timer < 40
  10.         handcursor(4)
  11.         handcursor(5)
  12.         handcursor(6)
  13.         handcursor(7)
  14.         handcursor(8)
  15.         handcursor(9)
  16.         handcursor(10)
  17.         if flag = 1 then
  18.           set the visible of sprite 3 to not (the visible of sprite 3)
  19.           set flag to 0
  20.         end if
  21.         updateStage()
  22.       end repeat
  23.       set flag to 1
  24.       go(the frame)
  25.     end repeat
  26.     set check to 0
  27.   else
  28.     set the visible of sprite 3 to 1
  29.     go(the frame)
  30.     test()
  31.   end if
  32.   if the loaded of member "termy1" = 0 then
  33.     preloadMember("termy1")
  34.   end if
  35. end
  36.  
  37. on test
  38.   global count, check, chk1, chk2, chk3, chk4, chk5, chk6, chk7
  39.   if count >= 7 then
  40.     set check to 1
  41.     set count to 0
  42.     set chk1 to 1
  43.     set chk2 to 1
  44.     set chk3 to 1
  45.     set chk4 to 1
  46.     set chk5 to 1
  47.     set chk6 to 1
  48.     set chk7 to 1
  49.     cursorOff()
  50.     go(56)
  51.   end if
  52. end
  53.